home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / SystemCode / method.tcl < prev    next >
Encoding:
Text File  |  1994-04-24  |  343 b   |  18 lines  |  [TEXT/ALFA]
  1. #================================================================================
  2.  
  3. set mpos("") ""
  4.  
  5. proc markFile {} {
  6.     global mode
  7.  
  8.     case $mode in {
  9.         "C" {return [cMarkFile]}
  10.         "TeX" {return [texMarkFile]}
  11.          "C++" {return [c++MarkFile]}
  12.         "Csh" {return [cshMarkFile]}
  13.         "Tcl" {return [tclMarkFile]}
  14.         "BRWZ" {return [browseMarkFile]}
  15.     }
  16. }
  17.  
  18.